(gnus-start-news-server): Use expand-file-name, not

concat.

diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index bdd0227b8481142ee73c7483f1c27e59185ad160..d5a507599f9a48c828fcbf0f3ba01637e21b8af0 100644 (file)
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -70,8 +70,7 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server."
                           (list 'nnmh-directory
                                 (file-name-as-directory
                                  (expand-file-name
-                                  (concat "~/" (substring
-                                                gnus-nntp-server 1)))))
+                                  (substring gnus-nntp-server 1) "~/")))
                           (list 'nnmh-get-new-mail nil)))
                    (t
                     (list 'nntp gnus-nntp-server)))))